home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / STATISTI / 2485.ZIP / NINESPAD.STA < prev    next >
Text File  |  1989-08-03  |  334b  |  17 lines
  1. 'File "ninespad"
  2. 'What is the probability of drawing nine spades and four clubs in
  3. 'a bridge hand?
  4. numbers a 1,52
  5. repeat 100
  6.    shuffle a b
  7.    take b 1,13 c
  8.    count c i 1,13
  9.    if i = 9
  10.       count c j 14, 26
  11.       score j z
  12.    end
  13. end
  14. count z k 4
  15. divide k 100 kk
  16. print z kk
  17. 'Press "Control-Q" when you finish editing